'From Pharo1.2.1 of 2 April 2011 [Latest update: #12345] on 13 October 2011 at 5:18:07 pm'!TestCase subclass: #TesteDirecaoNaGrade	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo-Do-Laser-Testes'!!TesteDirecaoNaGrade methodsFor: 'as yet unclassified' stamp: 'marcos 10/13/2011 17:18'!testeNaDirecaoGradeCima	| direcaoCima |		direcaoCima := DirecaoNaGrade direcaoNaGradeDadoDirecaoSymbol: #cima.		self should: [ direcaoCima  = DirecaoNaGradeCima ]  .	self should: [ direcaoCima taxaDeslocamento = 0@(-1) ]  .	self should: [ direcaoCima direcaoEntradaProximaCelula = #baixo ] .! !